www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Function/Sysfunction.asp

    <%
'===================================================================================================================
'软件名称：云网影视管理系统
'Copyright (C) 2002-2007 ywnt.net  All rights reserved.
'产品咨询QQ：489234,2813712
'程序版权：云网互动科技有限公司
'程序开发：云网互动科技有限公司
'官方网站：http://www.ywnt.net 
'郑重声明:
'    1、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    3、云网互动科技有限公司保留此软件的法律追究权利
'===================================================================================================================

		Function ReplaceLableFlag(Content)
			Content=Replace(Content,"{$SetupDir}",SetupDir)
			Content=Replace(Content,"{$WebUrlW}",WebUrlW)
			Content=Replace(Content,"{$WebNameW}",WebNameW)
			Dim regEx, Matches, Match, TempStr
			Set regEx = New RegExp
			regEx.Pattern = "{\$[^{\$}]*}"
			regEx.IgnoreCase = True
			regEx.Global = True
			Set Matches = regEx.Execute(Content)
			ReplaceLableFlag = Content
			For Each Match In Matches
				On Error Resume Next
				TempStr = Match.Value
				TempStr = Replace(TempStr, Chr(13) & Chr(10), "")
				TempStr = Replace(TempStr, "{$", "")
				TempStr = Replace(TempStr, "}", "")
			   If Err.Number = 0 Then
			   if Instr(TempStr,"ZY_")<>0 then
			   	ReplaceLableFlag = Replace(ReplaceLableFlag, Match.Value, ZYLab(TempStr))
			   else
				ReplaceLableFlag = Replace(ReplaceLableFlag, Match.Value, eval(TempStr))
				end if
			   End If
			Next
		End Function
		
		Function ZYLab(Id)
		id = Replace(id, "ZY_", "")
		Str_Sql = "Select LabContent from YWNT_TMS_ZyLab where LabName='"&Id&"' order by id asc"
		Set RS_ZYLab = Conn.Execute(Str_Sql)
		LabContent=RS_ZYLab("LabContent")
		Rs_ZYLab.close
		Set RS_ZYLab = Nothing
		ZYLab=ReplaceLableFlag(LabContent)
		End Function%>